macro !sMake 1D Sin Wave/;
{	Use this macro to make an example data window.  }
{	You can then use this data window in the example macros }
{	or experiment with other plot types or functions. }
var
	longint :  dy,points;
	real : r;
	str255: name;
begin
	DisposeUnClose;
	name:='Sin Wave';
	points:=100;
	NewData(name,1,points,0,FALSE);
	for(dy,1,points)
		r:=EvalNumber(dy,/,points,*,6.283);
		r:=sin(r);
		PutDataNumber(name,1,dy,r);
	endfor;
	PlotData(name,'Line Plot',TRUE);
end;
